home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Sound
/
Utilities
/
MIDI Pack'en 1.0.5
/
Sample Scripts
/
11 Set Comment Text - 3
< prev
next >
Wrap
Text File
|
1994-02-02
|
225b
|
9 lines
tell application "MIDI Pack'en"
activate -- if needed
set x to "This patch was made by T.Suzuki"
repeat while (Text 1 of Window -1 is not x)
set Index of Window -1 to 1
set Text 1 of Window 1 to x
end repeat
end tell